home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Gooey1.3.1 / C++ Templates / mmCommon.c < prev    next >
Text File  |  1995-02-06  |  71KB  |  2,218 lines
  1. $$Message MM Common, mm:mmCommon$Prototype.name$.cp
  2. $$File mm:mmCommon$Prototype.name$.cp
  3. /*  mmCommon$Prototype.name$                         Common */
  4. /*  $CopyRight$ */
  5.  
  6. /*
  7.     Name:  mmCommon$Prototype.name$.c
  8.     Function:  Common for the Marksman¬ specific code.
  9.     History: $Date$ Original by $Author$
  10.     02/12/94 IT Makers, Made TypeList in Open file, and Reply record in Select
  11.         Volume to be local variables instead of in a floating object.
  12. */
  13.  
  14.  
  15. #include "mmCommon$Prototype.name$.h"            /* Common */
  16. #include "Common$Prototype.name$.h"                /* Common */
  17.  
  18. /* ======================================================= */
  19.  
  20. CApplication    *gApplication;                    /* The application itself */
  21. CMenus            *gMenus;                        /* Menu handler */
  22. CPreferences    *gPreferences;                    /* Preferences handler */
  23. CFiles            *gFiles;                        /* Files handler */
  24. CPrinting        *gPrinting;                        /* Printing handler */
  25.  
  26. UserEventHRec    UserEventList;                    /* User Event record list start */
  27. EventRecord        myEvent;                        /* Event record for all events */
  28. Boolean            WNE;                            /* WaitNextEvent trap is available */
  29. short            SleepValue;                        /* Sleep value for Wait on events */
  30. Boolean            doneFlag;                        /* Exit program flag */
  31. TEHandle        theInput;                        /* Used in text edit selections */
  32. RgnHandle        cursorRgn;                        /* Cursor region for WaitNextEvent */
  33. short            ReplyMode;                        /* Reply mode for AppleEvents */
  34.  
  35. Rect            tempRect;                        /* Temporary rect, not for long term use */
  36. Str255            sTemp;                            /* Temporary string, not for long term use */
  37. short            tempChar;                        /* Temporary use character */
  38. long            LTemp;                            /* Temporary use long variable */
  39. short            DType;                            /* Temporary use Type of dialog item */
  40. Handle            DItem;                            /* Temporary use Handle to the dialog item */
  41. ControlHandle    CItem;                            /* Temporary use Control handle */
  42.  
  43. WindowLocRec    theWindowLocRec;
  44.  
  45. Boolean            Doing_MovableModal;                /* For Movable Modal dialogs */
  46. Boolean            HoldOffUserEvents;                /* Flag for holding off UserEvents */
  47. Boolean            InTheForeground;                /* Flag for running in MultiFinder foreground */
  48.  
  49. HasRec            Has;                            /* Gestalt check results */
  50.  
  51. RGBColor        Black_ForeColor,White_BackColor;/* Standard colors */
  52. RGBColor            DrawingColor;                /* Temp drawing color, short life span use only */
  53.  
  54. $$Loop Menus
  55. MenuHandle    Menu_$Menu.name$;                    /* Menu handle, $Menu.FullName$ */
  56. $$EndLoop
  57.  
  58. $$Loop HierMenus
  59. MenuHandle    Menu_$Menu.name$;                    /* Hier Menu handle, $Menu.FullName$ */
  60. $$EndLoop
  61.  
  62. CmmAlert                *gCurrentAlert;            /* The current Alert object */
  63. $$Loop Alerts
  64. CA$Worksheet.name$        *g$Worksheet.name$;        /* The Alert object */
  65. $$EndLoop Alerts
  66. CmmModalDialog            *gCurrentModalDialog;    /* The current Modal Dialog object */
  67. $$Loop ModalDialogs
  68. CD$Worksheet.name$        *g$Worksheet.name$;        /* The Modal Dialog object */
  69. $$EndLoop
  70. $$Loop ModelessDialogs
  71. CMD$Worksheet.name$        *g$Worksheet.name$;        /* The Modeless Dialog object */
  72. $$EndLoop
  73. $$Loop Windows
  74. CW$Worksheet.name$        *g$Worksheet.name$;        /* The Window object */
  75. $$EndLoop
  76.  
  77.  
  78. #define            LowestWindowIndex            0
  79. #define            HighestWindowIndex            10
  80. WindowPtr        TopMostWindows[12];
  81. WindowPtr        BottomMostWindows[12];
  82.  
  83. #define            lmWindowList                0x000009D6
  84.  
  85. /* Variables used by Select Volume */
  86. short            Last_vRefNum;
  87. long            Last_parID;
  88. Str255            Last_Name;
  89.  
  90. ProcessSerialNumber    gSelfPSN;
  91. AEAddressDesc                gSelfAddress;
  92.  
  93.  
  94. static void    VerifyWindowLayers(void);
  95.  
  96. static pascal Boolean mySelectCustomFileFilter(CInfoPBPtr pb,Ptr myDataPtr);
  97.  
  98. static pascal short mySelectDlgFilter(short item,DialogPtr theDialog,Ptr myDataPtr);
  99.  
  100. static void BasicSetup(DialogPtr theDialog,short theItem,Boolean Enabled,short MessageResID,
  101.     ControlHandle *theCItem);
  102.  
  103. /* ======================================================= */
  104. /* ======================================================= */
  105.  
  106. /* Routine: VerifyWindowLayers */
  107. /* Purpose: Verify all windows are at the proper layer */
  108.  
  109. static void VerifyWindowLayers()
  110. {
  111. short        Index,theLayer;
  112. WindowPeek    theWindowPeek;
  113. long         *theWindowListPtr,theRefCon;
  114. WindowPtr    theWindowPtr,theOutOfOrderWindowPtr;
  115. Boolean        Out_Of_Place;
  116.  
  117.  
  118. Out_Of_Place = true;
  119. while (Out_Of_Place)
  120.     {
  121.     Mk_ClearLayers();                                /* Clear all arrays, we will refill them */
  122.     theOutOfOrderWindowPtr = nil;
  123.     Out_Of_Place = false;
  124.  
  125.     Index = HighestWindowIndex + 1;
  126.     theWindowListPtr = (long *)lmWindowList;        /* Get the window list start */
  127.     theWindowPeek = (WindowPeek)*theWindowListPtr;    /* Get the window list start */
  128.     while ((theWindowPeek != nil) && (!Out_Of_Place))
  129.         {
  130.         if ((theWindowPeek->visible) && (theWindowPeek->windowKind == userKind))
  131.             {
  132.             theWindowPtr = (WindowPtr)theWindowPeek;/* Get the window pointer */
  133.  
  134.             theRefCon = GetWRefCon(theWindowPtr);
  135.             theRefCon = theRefCon & 0xFF000000;        /* Mask off, to get the layer */
  136.             theLayer = theRefCon >> 24;                /* Move into lower byte */
  137.             if (theLayer < LowestWindowIndex)        /* Pin at 0 */
  138.                 theLayer = LowestWindowIndex;
  139.             if (theLayer > HighestWindowIndex)        /* Pin at top */
  140.                 theLayer = HighestWindowIndex;
  141.             if (theLayer > Index)
  142.                 {
  143.                 Index = theLayer;
  144.                 Out_Of_Place = true;
  145.                 if (theOutOfOrderWindowPtr != nil)
  146.                     SendBehind(theOutOfOrderWindowPtr,theWindowPtr);
  147.                 }
  148.             else if (theLayer < Index)
  149.                 {
  150.                 Index = theLayer;
  151.                 TopMostWindows[theLayer] = theWindowPtr;
  152.                 BottomMostWindows[theLayer]  = theWindowPtr;
  153.                 }
  154.             else
  155.                 BottomMostWindows[theLayer]  = theWindowPtr;
  156.             theOutOfOrderWindowPtr = theWindowPtr;
  157.             }
  158.         theWindowPeek = theWindowPeek->nextWindow;/* Get the next window */
  159.         }
  160.     }
  161.  
  162. }
  163.  
  164. /* ======================================================= */
  165.  
  166. /* Routine: Mk_BehindWindow */
  167. /* Purpose: Get which window to place us behind */
  168.  
  169. WindowPtr Mk_BehindWindow(short theLayer)
  170. {
  171. short        LayerIndex;
  172. WindowPtr    ReturnWindowPtr;
  173.  
  174.  
  175. ReturnWindowPtr = (WindowPtr)-1;                    /* Default to In front of everyone */
  176.  
  177. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  178.  
  179. LayerIndex = HighestWindowIndex;
  180. while ((LayerIndex > theLayer) && (LayerIndex >= LowestWindowIndex))
  181.     {
  182.     if (BottomMostWindows[LayerIndex] != nil)
  183.         ReturnWindowPtr = BottomMostWindows[LayerIndex];
  184.     LayerIndex = LayerIndex - 1;
  185.     }
  186.  
  187. return(ReturnWindowPtr);
  188. }
  189.  
  190. /* ======================================================= */
  191.  
  192. /* Routine: Mk_RegisterWindow */
  193. /* Purpose: Place layer in RefCon and verify layers */
  194.  
  195. void Mk_RegisterWindow(WindowPtr theWindowPtr,short theLayer)
  196. {
  197. long    theRefCon;
  198. long    theLLayer;
  199.  
  200.  
  201. theRefCon = GetWRefCon(theWindowPtr);                /* Get the window refcon */
  202. theRefCon = theRefCon & 0x00FFFFFF;                    /* Mask off, in case something else is there */
  203. theLLayer = theLayer;                                /* Get the window layer */
  204. theLLayer = theLLayer << 24;                        /* Move into upper byte */
  205. theRefCon = theRefCon | theLLayer;                    /* Mask layer into refcon */
  206. SetWRefCon(theWindowPtr, theRefCon);                /* Set the new refcon */
  207.  
  208. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  209. }
  210.  
  211. /* ======================================================= */
  212.  
  213. /* Routine: Mk_ClearLayers */
  214. /* Purpose: Init our arrays for layered windows */
  215.  
  216. void Mk_ClearLayers()
  217. {
  218. short    Index;
  219.  
  220.  
  221. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  222.     {
  223.     TopMostWindows[Index] = nil;
  224.     BottomMostWindows[Index] = nil;
  225.     }
  226. }
  227.  
  228. /* ======================================================= */
  229.  
  230. /* Routine: Mk_HiliteWindow */
  231. /* Purpose: Hilite our layered window */
  232.  
  233. void Mk_HiliteWindow(WindowPtr theWindowPtr)
  234. {
  235. WindowPeek    theWindowPeek;
  236. long         *theWindowListPtr;
  237. WindowPtr    WasHilighted,CkHilighted,BehindWindow;
  238. long        theRefCon;
  239. short        theLayer,theWasLayer;
  240.  
  241.  
  242. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  243.  
  244. theRefCon = GetWRefCon(theWindowPtr);
  245. theRefCon = 0xFF000000 & theRefCon;                    /* Mask for top byte */
  246. theLayer = theRefCon >> 24;                            /* Move into lower byte */
  247. if (theLayer < LowestWindowIndex)                    /* Pin at 0 */
  248.     theLayer = LowestWindowIndex;
  249. if (theLayer > HighestWindowIndex)                    /* Pin at top */
  250.     theLayer = HighestWindowIndex;
  251.  
  252. theWindowListPtr = (long *)lmWindowList;            /* Get the window list start */
  253. theWindowPeek = (WindowPeek)*theWindowListPtr;        /* Get the window list start */
  254. WasHilighted = nil;
  255. while (theWindowPeek != nil)
  256.     {
  257.     if ((theWindowPeek->visible) && (theWindowPeek->windowKind == userKind))
  258.         {
  259.         if (theWindowPeek->hilited)
  260.             {
  261.             CkHilighted = (WindowPtr)theWindowPeek;
  262.             theRefCon = GetWRefCon(CkHilighted);
  263.             theRefCon = 0xFF000000 & theRefCon;        /* Mask for top byte */
  264.             theWasLayer = theRefCon >> 24;            /* Move into lower byte */
  265.             if (theWasLayer == theLayer)
  266.                 WasHilighted = CkHilighted;
  267.             }
  268.         }
  269.     theWindowPeek = theWindowPeek->nextWindow;
  270.     }
  271.  
  272. if (theWindowPtr != WasHilighted)
  273.     {
  274.     if (WasHilighted != nil)
  275.         {
  276.         theRefCon = GetWRefCon(WasHilighted);
  277.         theRefCon = 0xFF000000 & theRefCon;            /* Mask for top byte */
  278.         theWasLayer = theRefCon >> 24;                /* Move into lower byte */
  279.         if (theWasLayer < LowestWindowIndex)        /* Pin at 0 */
  280.             theWasLayer = LowestWindowIndex;
  281.         if (theWasLayer > HighestWindowIndex)        /* Pin at top */
  282.             theWasLayer = HighestWindowIndex;
  283.         if (theWasLayer == theLayer)
  284.             {
  285.             HiliteWindow(WasHilighted, false);
  286.             myEvent.message = (long)WasHilighted;
  287.             myEvent.modifiers = 0;
  288.             gApplication->DoActivate(&myEvent);        /* Deactivate, do links */
  289.             }
  290.         }
  291.  
  292.     HiliteWindow(theWindowPtr, true);
  293.     myEvent.message = (long)theWindowPtr;
  294.     myEvent.modifiers = 1;
  295.     gApplication->DoActivate(&myEvent);                /* Activate, do links */
  296.  
  297.     BehindWindow = Mk_BehindWindow(theLayer);        /* Move to correct layer on the screen */
  298.     if ((long)BehindWindow == -1L)
  299.         BringToFront(theWindowPtr);
  300.     else
  301.         SendBehind(theWindowPtr, BehindWindow);
  302.  
  303.     TopMostWindows[theLayer] = theWindowPtr;
  304.     }
  305.  
  306. }
  307.  
  308. /* ======================================================= */
  309.  
  310. /* Routine: Mk_DragWindow */
  311. /* Purpose: Drag our layered window */
  312.  
  313. void Mk_DragWindow(WindowPtr theWindowPtr,Point where, Rect bounds)
  314. {
  315. GrafPtr            savePort;
  316. CGrafPtr        WMgrPort;
  317. RgnHandle        hRegion,dragRgn;
  318. WindowPeek        theWindowPeek;
  319. long            result;
  320. short            Horz,Vert;
  321. CWindowPtr        theCWindowPtr;
  322. Rect            portBounds;
  323. PixMapHandle    thePixMapHandle;
  324.  
  325.  
  326. if (WaitMouseUp())
  327.     {
  328.     theWindowPeek = (WindowPeek)theWindowPtr;
  329.     theCWindowPtr = (CWindowPtr)theWindowPtr;
  330.  
  331.     GetPort(&savePort);
  332.     if (Has.ColorQD)
  333.         GetCWMgrPort(&WMgrPort);
  334.     else
  335.         GetWMgrPort((GrafPtr *)&WMgrPort);
  336.     SetPort((GrafPtr)WMgrPort);
  337.     hRegion = GetGrayRgn();
  338.     SetClip(hRegion);
  339.  
  340.     #if defined(THINK_C) || defined(THINK_CPLUS) || defined(__SC__)
  341.     ClipAbove(theWindowPeek);
  342. #else
  343.     ClipAbove((WindowRef)theWindowPeek);
  344. #endif
  345.  
  346.     dragRgn = NewRgn();
  347.     CopyRgn(theWindowPeek->strucRgn, dragRgn);
  348.  
  349.     result = DragGrayRgn(dragRgn, where, &bounds, &bounds, 0, nil);
  350.     Horz = (result & 0x0000FFFF);
  351.     Vert = (result >> 16) & 0x0000FFFF;
  352.  
  353.     if ((Vert != 0x8000) && (Horz != 0x8000))
  354.         {
  355.         if ((theCWindowPtr->portVersion & 0xC000) != 0)
  356.             {
  357.             thePixMapHandle = theCWindowPtr->portPixMap;
  358.             portBounds = (*thePixMapHandle)->bounds;
  359.             }
  360.         else
  361.             portBounds = theWindowPtr->portBits.bounds;
  362.  
  363.         Horz = Horz + (theWindowPtr->portRect.left - portBounds.left);
  364.         Vert = Vert + (theWindowPtr->portRect.top - portBounds.top);
  365.  
  366.         MoveWindow(theWindowPtr, Horz, Vert, false);
  367.         }
  368.  
  369.     DisposeRgn(dragRgn);
  370.     SetPort(savePort);
  371.     }
  372.  
  373. }
  374.  
  375. /* ======================================================= */
  376.  
  377. /* Routine: Mk_Is_FrontWindow */
  378. /* Purpose: Get the front window */
  379.  
  380. Boolean Mk_Is_FrontWindow(WindowPtr theWindowPtr)
  381. {
  382. Boolean    IsFront;
  383. short    Index;
  384.  
  385.  
  386. IsFront = false;
  387. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  388.     {
  389.     if (TopMostWindows[Index] == theWindowPtr)
  390.         IsFront = true;
  391.     }
  392.  
  393. return(IsFront);
  394. }
  395.  
  396. /* ======================================================= */
  397.  
  398. /* Routine: Mk_CloseLayeredWindow */
  399. /* Purpose: Close a layered window */
  400.  
  401. void Mk_CloseLayeredWindow(WindowPtr theWindowPtr)
  402. {
  403. short    Index;
  404.  
  405.  
  406. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  407.     {
  408.     if (TopMostWindows[Index] == theWindowPtr)
  409.         TopMostWindows[Index] = nil;
  410.     if (BottomMostWindows[Index] == theWindowPtr)
  411.         BottomMostWindows[Index] = nil;
  412.     }
  413. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  414. }
  415.  
  416. /* ======================================================= */
  417.  
  418. /* Routine: Init */
  419. /* Purpose: Set the default preferences */
  420.  
  421. void CmmPreferences::Init(void)
  422. {
  423. }
  424.  
  425. /* ======================================================= */
  426.  
  427. /* Routine: GetPrefParams */
  428. /* Purpose: Get the preferences Parameters */
  429.  
  430. void CmmPreferences::GetPrefParams(OSType *PrefCreator,OSType *PrefType,Str255 *thePrefsFilename,
  431.     long *PrefsRecSize,short *thePrefsFormatRevision)
  432. {
  433.  
  434. *PrefCreator = PrefsCreator;
  435. *PrefType = PrefsType;
  436. PStrCopy((Str255 *)PrefsFileName,thePrefsFilename);
  437. *PrefsRecSize = sizeof(PrefsRec);
  438. *thePrefsFormatRevision = PrefsFormatRevision;
  439. }
  440.  
  441. /* ======================================================= */
  442.  
  443. /* Routine: ReadPrefsPrivate */
  444. /* Purpose: Read the prefs ourselves */
  445.  
  446. void CmmPreferences::ReadPrefsPrivate(short PrefsRefNum)
  447. {
  448. }
  449.  
  450. /* ======================================================= */
  451.  
  452. /* Routine: UGetPreferences */
  453. /* Purpose: Get the preferences from the Prefs record already read in */
  454.  
  455. void CmmPreferences::UGetPreferences(Handle thePrefsH)
  456. {
  457. PrefsHRec thePrefs;
  458.  
  459.  
  460. thePrefs = (PrefsHRec)thePrefsH;
  461. theWindowLocRec = (*thePrefs)->theWindowLocRec;    /* Get the window location data */
  462. /* Use the form:   xxxx = (*thePrefs)->xxxx;    */
  463. }
  464.  
  465. /* ======================================================= */
  466.  
  467. /* Routine: USetPreferences */
  468. /* Purpose: Set new preferences, to be written out to the file */
  469.  
  470. void CmmPreferences::USetPreferences(Handle thePrefsH)
  471. {
  472. PrefsHRec thePrefs;
  473.  
  474.  
  475. thePrefs = (PrefsHRec)thePrefsH;
  476. (*thePrefs)->FormatRevision = PrefsFormatRevision;    /* Version number */
  477. (*thePrefs)->theWindowLocRec = theWindowLocRec;        /* Save the window location data */
  478. /* Use the form:   (*thePrefs)->xxxx = xxxx;    */
  479. }
  480.  
  481. /* ======================================================= */
  482.  
  483. /* Routine: GetPreferences */
  484. /* Purpose: Get the preferences */
  485.  
  486. void CmmPreferences::GetPreferences()
  487. {
  488. short        foundVRefNum,PrefsRefNum,FormatRevision,thePrefsFormatRevision;
  489. long        result,foundDirID,DataSize,count,PrefsRecSize;
  490. OSErr        theError;
  491. Boolean        GotPreferences,HasFindFolder;
  492. Str255        thePrefsFilename;
  493. Handle        PrefsHandle;
  494. FSSpec        PrefsFSSpec;
  495. OSType        PrefCreator,PrefType;
  496. SysEnvRec    theEnv;
  497.  
  498.  
  499. /* Get parameters to use */
  500. this->GetPrefParams(&PrefCreator,&PrefType,&thePrefsFilename,&PrefsRecSize,&thePrefsFormatRevision);
  501.  
  502. GotPreferences = false;                                /* No prefs yet */
  503. HasFindFolder = false;                                /* No FindFolder routine avail yet */
  504. PrefsRefNum = 0;                                    /* No prefs file yet */
  505.  
  506. if (Has.Gestalt)                                    /* Must have Gestalt */
  507.     {
  508.     theError = Gestalt(gestaltFindFolderAttr,&result);/* Need FindFolder */
  509.     if ((theError == 0) && ((result & (0x00000001 << gestaltFindFolderPresent)) != 0))
  510.         HasFindFolder = true;
  511.  
  512.     if (HasFindFolder)                                /* Must have FindFolder */
  513.         {
  514.         theError = FindFolder(kOnSystemDisk,kPreferencesFolderType,kCreateFolder,&foundVRefNum,&foundDirID);/* Get preference folder */
  515.         if (theError == 0)
  516.             {
  517.             theError = FSMakeFSSpec(foundVRefNum,foundDirID,thePrefsFilename,&PrefsFSSpec);
  518.             if (theError == fnfErr)                    /* File not found */
  519.                 theError = FSpCreate(&PrefsFSSpec,PrefCreator,PrefType,0);/* Create the file */
  520.             theError = FSpOpenDF(&PrefsFSSpec,fsRdWrPerm,&PrefsRefNum);/* Open the file */
  521.             }
  522.         }
  523.     else
  524.         {
  525.         theError = SysEnvirons(1,&theEnv);            /* Get volume environs */
  526.         theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  527.         if (theError == fnfErr)                        /* File not found */
  528.             {
  529.             theError = Create(thePrefsFilename,theEnv.sysVRefNum,PrefCreator,PrefType);/* Create the file */
  530.             theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  531.             }
  532.         }
  533.  
  534.     if (theError == 0)
  535.         {
  536.         theError = GetEOF(PrefsRefNum,&DataSize);    /* See if data in the file */
  537.         if (DataSize > 0)                            /* Must have data in the file to go on */
  538.             {
  539.             count = 2;                                /* Revision number size */
  540.             theError = FSRead(PrefsRefNum,&count,&FormatRevision);/* Get revision number */
  541.             theError = SetFPos(PrefsRefNum,fsFromStart,0);/* Beginning again */
  542.  
  543.             if ((FormatRevision == thePrefsFormatRevision) && (PrefsRecSize > 0))/* Only do if up to date revision */
  544.                 {
  545.                 PrefsHandle = NewHandleClear(PrefsRecSize);/* Get space for the prefs */
  546.                 if (PrefsHandle != nil)                /* Make sure we got our little tiny handle */
  547.                     {
  548.                     HLock(PrefsHandle);                /* Lock this for safety */
  549.                     count = PrefsRecSize;            /* See how much data to read */
  550.                     theError = FSRead(PrefsRefNum,&count,*PrefsHandle);/* Read it on in */
  551.                     if (theError == 0)
  552.                         this->UGetPreferences(PrefsHandle);/* Let the user get the prefs */
  553.  
  554.                     GotPreferences = true;            /* Got our preferences */
  555.                     HUnlock(PrefsHandle);            /* OK to unlock now */
  556.                     DisposeHandle(PrefsHandle);        /* All done with this record  */
  557.                     }
  558.                 }
  559.             else
  560.                 this->ReadPrefsPrivate(PrefsRefNum);    /* Let the user read the prefs himself */
  561.             }
  562.         if (PrefsRefNum != 0)                        /* Done with the file , close it */
  563.             theError = FSClose(PrefsRefNum);
  564.         }
  565.     }
  566.  
  567. if (!GotPreferences )                                /* If we did not get prefs , use default values */
  568.     this->SetPreferences();                            /* Set the default values */
  569.  
  570. }
  571.  
  572. /* ======================================================= */
  573.  
  574. /* Routine: SetPreferences */
  575. /* Purpose: Set new preferences */
  576.  
  577. void CmmPreferences::SetPreferences()
  578. {
  579. Str255        thePrefsFilename;
  580. OSErr        theError;
  581. long        result,foundDirID,count,PrefsRecSize;
  582. short        foundVRefNum,PrefsRefNum,thePrefsFormatRevision;
  583. Handle        PrefsHandle;
  584. Boolean        HasFindFolder;
  585. FSSpec        PrefsFSSpec;
  586. OSType        PrefCreator,PrefType;
  587. SysEnvRec    theEnv;
  588.  
  589.  
  590. /* Get parameters to use */
  591. this->GetPrefParams(&PrefCreator,&PrefType,&thePrefsFilename,&PrefsRecSize,&thePrefsFormatRevision);
  592. PrefsRefNum = 0;
  593.  
  594. PrefsHandle = NewHandleClear(PrefsRecSize);            /* Allocate the prefs space holder */
  595.  
  596. if (PrefsHandle != nil)
  597.     {
  598.     HLock(PrefsHandle);                                /* Lock for safety */
  599.  
  600.     this->USetPreferences(PrefsHandle);                /* Let the user set the other pref values */
  601.  
  602.     HasFindFolder = false;
  603.     if (Has.Gestalt)                                /* Must have Gestalt */
  604.         {
  605.         theError = Gestalt(gestaltFindFolderAttr,&result);/* Need FindFolder */
  606.         if ((theError == 0) && ((result & (0x00000001 << gestaltFindFolderPresent)) != 0))/* See if FindFolder */
  607.             HasFindFolder = true;
  608.  
  609.         if (HasFindFolder )                            /* Must have FindFolder */
  610.             {
  611.             theError = FindFolder(kOnSystemDisk,kPreferencesFolderType,kCreateFolder,&foundVRefNum,&foundDirID);
  612.             if (theError == 0)
  613.                 {
  614.                 theError = FSMakeFSSpec(foundVRefNum,foundDirID,thePrefsFilename,&PrefsFSSpec);
  615.                 if (theError == fnfErr)                /* File not found */
  616.                     theError = FSpCreate(&PrefsFSSpec,PrefCreator,PrefType,0);/* Create the file */
  617.                 theError = FSpOpenDF(&PrefsFSSpec,fsRdWrPerm,&PrefsRefNum);/* Open the file */
  618.                 }
  619.             }
  620.         else
  621.             {
  622.             theError = SysEnvirons(1,&theEnv);        /* Get volume environs */
  623.             theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  624.             if (theError == fnfErr)                    /* File not found */
  625.                 {
  626.                 theError = Create(thePrefsFilename,theEnv.sysVRefNum,PrefCreator,PrefType);/* Create the file */
  627.                 theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  628.                 }
  629.             }
  630.  
  631.         if (theError == 0)
  632.             {
  633.             count = PrefsRecSize;
  634.             theError = FSWrite(PrefsRefNum,&count,*PrefsHandle);/* Write new prefs */
  635.             theError = SetEOF(PrefsRefNum,count);    /* Reset EOF */
  636.  
  637.             if (PrefsRefNum != 0)
  638.                 theError = FSClose(PrefsRefNum);    /* Close file */
  639.  
  640.             HUnlock(PrefsHandle);
  641.             DisposeHandle(PrefsHandle);                /* Done with Prefs handle */
  642.             }
  643.         }
  644.     }
  645.  
  646. }
  647.  
  648. /* ======================================================= */
  649.  
  650. void PositionWindow(WindowPtr theWindow,Point  WantLocation,Point DefaultPosition)
  651. {
  652. Boolean        FitsOK;
  653. Rect        WindowRect;
  654. GrafPtr        theDesktopPort;
  655. RgnHandle    theRgn,the2Rgn;
  656.  
  657.  
  658. FitsOK = false;                                        /*Init to not on current screen(s) */
  659. WindowRect = theWindow->portRect;                    /* Save the rect to get the size */
  660. OffsetRect(&WindowRect,-WindowRect.left,-WindowRect.top);    /* Offset to 0,0 */
  661. OffsetRect(&WindowRect,WantLocation.h,WantLocation.v);        /* Offset to wanted location */
  662.  
  663. GetWMgrPort(&theDesktopPort);                        /* Get the screen */
  664.  
  665. theRgn = NewRgn();                                    /* Make temp regions */
  666. the2Rgn = NewRgn();
  667. RectRgn(theRgn,&WindowRect);                        /* First region to our window rectangle on the screen */
  668. SectRgn(theRgn,theDesktopPort->visRgn,the2Rgn);        /* Do the intersection with the screen and window */
  669. if (EqualRgn(theRgn,the2Rgn))                        /* If all of window in the screen area then ... */
  670.     FitsOK = true;                                    /* ...all of the window is on the screen area */
  671. if (EmptyRgn(the2Rgn))
  672.     FitsOK = false;
  673.  
  674. DisposeRgn(theRgn);                                    /* Dispose of temp regions */
  675. DisposeRgn(the2Rgn);
  676. if ((FitsOK) && ((WantLocation.h != 0) || (WantLocation.v != 0)))    /* If all of window in the screen area then ... */
  677.     MoveWindow(theWindow,WantLocation.h,WantLocation.v,false);    /* Move to saved location */
  678. else
  679.     MoveWindow(theWindow,DefaultPosition.h,DefaultPosition.v,false); /* Move to original location */
  680. }
  681.  
  682. /* ======================================================= */
  683.  
  684. /* Routine: PStrCopy */
  685. /* Purpose: Copy Pascal strings */
  686.  
  687. void PStrCopy(Str255 *SourceString, Str255 *DestString)/* Copy Pascal strings */
  688. {
  689.  
  690.  
  691. *DestString[0] = *SourceString[0];                    /* Get the string size */
  692. if (*DestString[0] != 0)                            /* Do if there is anything in the string */
  693.     BlockMove(SourceString,DestString,*DestString[0]+1);
  694. }
  695.  
  696. /* ======================================================= */
  697.  
  698. /* Routine: PStrCat */
  699. /* Purpose: Concat Pascal strings */
  700.  
  701. void PStrCat(Str255 *SourceString, Str255 *DestString)/* Concat Pascal strings */
  702. {
  703. short    OldDestLength,NewDestLength,SizeFromSource;
  704.  
  705.  
  706. OldDestLength = *DestString[0];                        /* Get the string old length */
  707. SizeFromSource = *SourceString[0];                    /* Get the source length */
  708. NewDestLength = OldDestLength + SizeFromSource;        /* Get the string new length */
  709. if (NewDestLength > 255)                            /* Compare to length of the final string */
  710.     {
  711.     NewDestLength = 255;                            /* The string final length */
  712.     SizeFromSource = 255 - OldDestLength;            /* The string final length */
  713.     }
  714.  
  715. *DestString[0] = NewDestLength;                        /* Set the string length */
  716. if (SizeFromSource > 0)                                /* Do if there is anything in the string */
  717.     BlockMove((Ptr)((long)SourceString + 1L),(Ptr)((long)DestString+OldDestLength+1L),SizeFromSource);
  718. }
  719.  
  720. /* ======================================================= */
  721.  
  722. /* Routine: PStrCmp */
  723. /* Purpose: Compare Pascal strings for exact match, case sensitive */
  724.  
  725. Boolean PStrCmp(StringPtr Source1String,StringPtr Source2String)/* Compare Pascal strings */
  726. {
  727. short        theLength,Index;
  728. Boolean        theSame;
  729.  
  730.  
  731. theSame = false;                                    /* Init to different */
  732. theLength = *Source1String++;                        /* Get length of one string */
  733. if (theLength == *Source2String++)                    /* Compare to length of other string, easy and quick check */
  734.     {
  735.     theSame = true;                                    /* Init to same, now we will check each character */
  736.     for (Index=1; Index <= theLength; Index++)        /* Compare to length of other string, easy and quick check */
  737.         {
  738.         if (*Source1String++ != *Source2String++)    /* See if this character is the same */
  739.             theSame = false;                        /* Different */
  740.         }
  741.     }
  742.  
  743. return(theSame);
  744. }
  745.  
  746. /* ======================================================= */
  747.  
  748. /* Routine: GetUserEvent */
  749. /* Purpose: See if any user events are available */
  750.  
  751. void GetUserEvent(UserEventPRec TheUserEvent)
  752. { 
  753. UserEventHRec    NextUserEvent;                        /* The next user event */
  754.  
  755.  
  756. TheUserEvent->ID = UserEvent_None;                    /* Set ID to no events are available */
  757. if (UserEventList != NIL)                            /* Get first entry in the list */
  758.     {
  759.     HLock((Handle)UserEventList);                    /* Lock for safety */
  760.     TheUserEvent->ID = (*UserEventList)->ID;        /* The event ID */
  761.     TheUserEvent->ID2 = (*UserEventList)->ID2;        /* The optional ID */
  762.     TheUserEvent->Data1 = (*UserEventList)->Data1;    /* The optional data */
  763.     TheUserEvent->Data2 = (*UserEventList)->Data2;    /* The optional data */
  764.     TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  765.     NextUserEvent = (*UserEventList)->Next;            /* The next list */
  766.  
  767.     DisposHandle((Handle)UserEventList);            /* Remove this list item */
  768.     UserEventList = NextUserEvent;                    /* Make the next item the new first item */
  769.     }
  770. }
  771.  
  772. /* ======================================================= */
  773.  
  774. /* Routine: Add_UserEvent */
  775. /* Purpose: Add a user event */
  776.  
  777. void Add_UserEvent(short ID1,short  ID2,long Data1,long Data2,Handle  theHandle)
  778. { 
  779. UserEventHRec    NewUserEvent;                        /* The new user event */
  780. UserEventHRec    theUserEvent;                        /* The user event */
  781.  
  782.  
  783. NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  784. if (NewUserEvent != NIL)                            /* Only do if we got the new record */
  785.     {
  786.     HLock((Handle)NewUserEvent);                    /* Lock for safety */
  787.     (*NewUserEvent)->ID = ID1;                        /* The event ID */
  788.     (*NewUserEvent)->ID2 = ID2;                        /* The optional ID */
  789.     (*NewUserEvent)->Data1 = Data1;                    /* The optional data */
  790.     (*NewUserEvent)->Data2 = Data2;                    /* The optional data */
  791.     (*NewUserEvent)->theHandle = theHandle;            /* The optional handle */
  792.     (*NewUserEvent)->Next = NIL;                    /* No next item after this one */
  793.  
  794.     if (UserEventList == NIL)                        /* See if anyone is in the list yet */
  795.         UserEventList = NewUserEvent;                /* Make this one the first in the list */
  796.     else
  797.         {
  798.         theUserEvent = UserEventList;                /* Get the first one */
  799.         while ((*theUserEvent)->Next != NIL)        /* Get the next one */
  800.             {
  801.             theUserEvent = (*theUserEvent)->Next;
  802.             }
  803.         (*theUserEvent)->Next = NewUserEvent;        /* Tack on to the end */
  804.         }
  805.     }
  806. }
  807.  
  808. /* ======================================================= */
  809.  
  810. /* Routine: SetNameForPopup */
  811. /* Purpose: Set the title for a popup control */
  812.  
  813. void SetNameForPopup(ControlHandle theControl)
  814. { 
  815. Handle    theHandle;                                    /* The resource handle */
  816. ResType    theType;                                    /* Returned type */
  817. short    theID;                                        /* Returned ID */
  818. short    theMenuID;                                    /* Menu ID */
  819.  
  820.  
  821. theMenuID = GetCtlMax(theControl);                    /* Get the menu ID */
  822. theHandle = Get1Resource('MENU', theMenuID);        /* See if the resource is out there */
  823. if (theHandle != nil)                                /* See if we got the menu */
  824.     GetResInfo(theHandle,&theID,&theType,sTemp);    /* Get the title */
  825. else                                                /* Else no menu here */
  826.     sTemp[0] = 0;                                    /* Get the title */
  827. SetCTitle(theControl,sTemp);                        /* Set the title */
  828. }
  829.  
  830. /* ======================================================= */
  831.  
  832. /* Routine: Make_A_List */
  833. /* Purpose: This is a routine used to make a new list */
  834.  
  835. void Make_A_List(ListHandle *theList,Rect *theListRect,WindowPtr theWindow,short theStringResourceID,
  836.     short theSize,short theFont,Style theStyle,Boolean InDialog)
  837. {
  838. Point    cSize;                                        /* Use to point to proper row */
  839. Handle    theHandle;                                    /* Temp Handle */
  840. Rect    dataBounds;
  841.  
  842.  
  843. TextSize(theSize);                                    /* Set text size */
  844. TextFont(theFont);                                    /* Set text font */
  845. TextFace(theStyle);                                    /* Set text style */
  846.  
  847. tempRect = *theListRect;
  848. tempRect.right = tempRect.right - 15;                /* Go inside the scroll bar area */
  849. SetRect(&dataBounds, 0, 0, 1, 0);                    /* Make the empty list */
  850. cSize.h = theListRect->right - 15 - theListRect->left;/* Get the width of the list */
  851. cSize.v = 0;                                        /* Set the HEIGHT of each list element, based on font selected */
  852.  
  853. *theList = LNew(&tempRect, &dataBounds, cSize, 0, theWindow, TRUE, FALSE, FALSE, TRUE);/* Create the list */
  854. (**theList)->selFlags = lOnlyOne + lNoNilHilite;    /* Set for only one active item at a time */
  855. LDoDraw(FALSE,*theList);                            /* Do not Draw this list structure */
  856.  
  857. theHandle = Get1Resource('STR#',theStringResourceID);/* See if any strings */
  858. if (theHandle != NIL)
  859.     {
  860.     cSize.h = 0;                                    /* Point to the correct column, starts at zero */
  861.     cSize.v = -1;                                    /* Point to the correct row, starts at zero */
  862.     do
  863.         {
  864.         GetIndString(sTemp, theStringResourceID, cSize.v + 2);/* Get the new string */
  865.         if (sTemp[0] > 0)
  866.             Add_List_String(sTemp, *theList, &cSize);/* Add in the new string */
  867.         }
  868.     while (sTemp[0] != 0);                            /* Add all the strings in this resource */
  869.     }
  870.  
  871. LDoDraw(TRUE,*theList);                                /* Draw this list structure */
  872. cSize.h = 0;                                        /* All elements are in column 0e */
  873. cSize.v = 0;                                         /* Select the first list element */
  874. LSetSelect(TRUE, cSize,*theList);
  875.  
  876. if (InDialog)
  877.     TextFont(systemFont);                            /* Back to the system font */
  878. else
  879.     TextFont(applFont);                                /* Back to the application font */
  880. TextSize(12);                                        /* Back to the application size */
  881. TextFace(0);                                        /* Set text style */
  882. }
  883.  
  884. /* ======================================================= */
  885.  
  886. void Play_The_Sound(short ResID)
  887. {
  888. Handle        ResHandle;                                /* The sound resource handle */
  889. short        SndResourceID;                            /* Sound resource ID */
  890. Str255        SndName;                                /* Sound name*/
  891. ResType        theType;                                /* Resource type */
  892. OSErr        MyErr;                                    /* Error flag */
  893.  
  894.  
  895. ResHandle = Get1Resource('snd ', ResID);            /* See if the resource is out there */
  896. if (ResHandle != NIL)                                /* Only do if we got the sound */
  897.     {
  898.     GetResInfo(ResHandle,&SndResourceID,&theType,SndName);
  899.     #if defined(THINK_C) || defined(THINK_CPLUS) || defined(__SC__)
  900.     MyErr = SndPlay(NIL,ResHandle,FALSE);
  901. #else
  902.     MyErr = SndPlay(NIL,(SndListHandle)ResHandle,FALSE);
  903. #endif
  904.     ReleaseResource(ResHandle);
  905.     }
  906. }
  907.  
  908. /* ======================================================= */
  909.  
  910. /* Routine: Add_List_String */
  911. /* Purpose: This is a routine used to add strings to an existing list */
  912.  
  913. void Add_List_String(Str255 theString,ListHandle theList,Point *cSize) 
  914. {
  915. short    theRow;                                        /* The Row that we are adding */
  916.  
  917.  
  918. if (theList != NIL)  
  919.     {
  920.     cSize->h = 0;                                    /* Point to the correct column */
  921.     theRow = LAddRow(1, 32000, theList);            /* Add another row at the end of the list */
  922.     cSize->v = theRow;                                /* Point to the row just added */
  923.     LSetCell(&theString[1], theString[0], *cSize,theList);/* Place string in row just created */
  924.     }
  925. }
  926.  
  927. /* ======================================================= */
  928.  
  929. /* Routine: Get_TE_String */
  930. /* Purpose: This is a routine used to get a string from a TE area, limited to 250 characters */
  931.  
  932. void Get_TE_String(TEHandle theTEArea,Str255 *theString)
  933. { 
  934. short Index;                                        /* Use to loop thru the characters */
  935. short TitleLength;                                    /* Number of characters to do */
  936. CharsHandle theCharsHandle;                            /* Used to get global edit text */
  937. Ptr theStringPtr;                                    /* Pointer to the string, byte level */
  938. Ptr theTECharPtr;                                    /* Pointer to the string, byte level */
  939.  
  940.  
  941. theCharsHandle = TEGetText(theTEArea);                /* Get the character handle */
  942. HLock ( ( Handle ) theCharsHandle );                /* Lock it for safety */
  943. theTECharPtr = (Ptr)*theCharsHandle;                /* Get string Ptr */
  944. TitleLength = (*theTEArea)->teLength;                /* Get the number of characters */
  945. *theString[0] = 0;                                    /* Start with an empty string */
  946. if (TitleLength > 0) 
  947.     {
  948.     theStringPtr = (Ptr)((long)theString + (long)1);/* Start of the string data */
  949.     if (TitleLength > 250) 
  950.         TitleLength = 250;
  951.     for (Index = 0; Index < TitleLength; Index++)
  952.         *theStringPtr++ = (char)(*theTECharPtr++);
  953.     *theString[0] = TitleLength;
  954.     }
  955. }
  956.  
  957. /* ======================================================= */
  958.  
  959. /* Routine: Make_TE_Area */
  960. /* Purpose: This is a routine used to create a TE area */
  961.  
  962. void Make_TE_Area(TEHandle *theTEArea,Rect *Position,short theFontSize,
  963.     short theFont,short DefaultStringID)
  964. {
  965. FontInfo    ThisFontInfo;                            /* Use to get the font data */
  966.  
  967.  
  968. TextSize(theFontSize);                                /* Set the size */
  969. TextFont(theFont);                                    /* Set the font */
  970. GetFontInfo(&ThisFontInfo);                            /* Get Ascent height for positioning */
  971.  
  972. tempRect = *Position;                                /* Get the rect */
  973. FrameRect(&tempRect);                                /* Frame this TE area */
  974. InsetRect(&tempRect, 3, 3);                            /* Indent for TE inside of box */
  975. *theTEArea = TENew(&tempRect, &tempRect);            /* Create the TE area */
  976. if (theInput != NIL)                                /* See if there is already a TE area */
  977.     TEDeactivate(theInput);                            /* Yes, so turn it off */
  978.  
  979. theInput = *theTEArea;                                /* Activate the TE area */
  980. GetIndString(sTemp, DefaultStringID, 1);            /* Get the default string */
  981. TESetText(&sTemp[1], sTemp[0], theInput);            /* Place default text in the TE area */
  982. TEActivate(theInput);                                /* Make the TE area active */
  983.  
  984. TextSize(12);                                        /* Set the size */
  985. TextFont(applFont);                                    /* Set the font */
  986. }
  987.  
  988. /* ======================================================= */
  989.  
  990. /* Routine: Plot_Sicn */
  991. /* Purpose: This is a routine used to plot an Sicn, small 16x16 icon */
  992.  
  993. void Plot_Sicn(short theSicnID,Rect *Position)
  994. { 
  995. typedef struct SmallIconRec{
  996.     long    theIcon[16];
  997. }*SmallIconPtr,**SmallIconHand;
  998.  
  999. SmallIconHand    SmallIcon;                            /* Handle to the SICN resource */
  1000. BitMap            theBitMap;                            /* Bitmap for plotting */
  1001. Rect            sourceRect, DestRect;                /* Rects for plotting */
  1002. GrafPtr            thePort;                            /* Port to draw on to */
  1003.  
  1004.  
  1005. SmallIcon = (SmallIconHand)GetResource('SICN', theSicnID);/* Get the resource */
  1006. if (SmallIcon != NIL)                                /* Do if there is a resource */
  1007.     {
  1008.     SetRect(&sourceRect, 0, 0, 16, 16);                /* Sicns are 16 x 16 */
  1009.     DestRect = *Position;                            /* Destination */
  1010.     theBitMap.baseAddr = (Ptr)&(*SmallIcon)->theIcon;/* Base address of the bitmap */
  1011.     theBitMap.rowBytes = 2;                            /* 2*8 = 16 */
  1012.     theBitMap.bounds = sourceRect;                    /* Source rect size */
  1013.     GetPort(&thePort);                                /* Get the current port */
  1014.     CopyBits(&theBitMap, &thePort->portBits, &sourceRect, &DestRect, srcCopy, NIL);/* Plot it */
  1015.     }
  1016. }
  1017.  
  1018. /* ======================================================= */
  1019.  
  1020. /* Routine: HandleWScrollBar */
  1021. /* Purpose: This is a routine used to handle a scrollbar */
  1022.  
  1023. void HandleWScrollBar (Point myPt,short code,short Increment,short LIncrement,ControlHandle theControl)
  1024. {
  1025. short    theValue;                                    /* Value of the scrollbar */
  1026. long    MaxTick;                                    /* Timer used for repeat scrolling */
  1027. Boolean    FirstTime;                                    /* Flag to start scrolling */
  1028. short    Start,Stop;
  1029.  
  1030.  
  1031. Start = GetCtlMin(theControl);
  1032. Stop = GetCtlMax(theControl);
  1033.  
  1034. FirstTime = TRUE;                                    /* Do the scroll the first time also */
  1035. while (StillDown() || FirstTime)                    /* Do the scroll as long as the button is down */
  1036.     {                                                /* Timer used for repeat scrolling */
  1037.     FirstTime = FALSE;                                /* Do the scroll the first time only unless auto */
  1038.     HiliteControl(theControl, code);                /* Darken the arrow */
  1039.     theValue = GetCtlValue(theControl);                /* Get current state */
  1040.  
  1041.     if (code == inUpButton)                            /* See if in the up/left arrow */
  1042.         {
  1043.         theValue = theValue - Increment;            /* Subtract the single decrement */
  1044.         if (theValue < Start)                        /* Check for boundary conditions */
  1045.             theValue = Start;                        /* Bump at the start value */
  1046.         }
  1047.  
  1048.     if (code == inDownButton)                        /* See if in the down/right arrow */
  1049.         {
  1050.         theValue = theValue + Increment;            /* Add the single increment */
  1051.         if (theValue > Stop)                         /* Check for boundary conditions */
  1052.             theValue = Stop;                        /* Bump at the stop value */
  1053.         }
  1054.  
  1055.     if (code == inPageUp)                            /* See if in the up/left grey area */
  1056.         {
  1057.         theValue = theValue - LIncrement;            /* Subtract the page increment */
  1058.         if (theValue < Start)                         /* Check for boundary conditions */
  1059.             theValue = Start;                        /* Bump at the Start value */
  1060.         }
  1061.  
  1062.     if (code == inPageDown)                            /* See if in the down/right grey area */
  1063.         {
  1064.         theValue = theValue + LIncrement;            /* Add the page increment */
  1065.         if (theValue > Stop)                        /* Check for boundary conditions */
  1066.             theValue = Stop;                        /* Bump at the Stop value */
  1067.         }
  1068.  
  1069.     if (code == inThumb)                            /* See if in the drag box area */
  1070.         {
  1071.         code = TrackControl(theControl, myPt, NIL);    /* Let the OS drag it around */
  1072.         theValue = GetCtlValue(theControl);            /* Get current state */
  1073.         }
  1074.  
  1075.     SetCtlValue(theControl, theValue);                /* Set new state */
  1076.  
  1077.     MaxTick = TickCount() + 9;                        /* Time delay for auto-scroll */
  1078.     do                                                /* Start of delay routine */
  1079.         {}
  1080.     while ((Button()) && (TickCount() < MaxTick));    /* Exit when time up or mouse button up */
  1081.     HiliteControl(theControl, 0);                    /* Lighten the arrow */
  1082.     }                                                /* End for StillDown */
  1083. }
  1084.  
  1085. /* ======================================================= */
  1086.  
  1087. StandardFileReply    myStdFileReply;                    /* For use in the filter routine */
  1088.  
  1089. /* Routine: mySelectDlgFilter */
  1090. /* Purpose: Filter routine for Select Volume routine */
  1091.  
  1092. static pascal short mySelectDlgFilter (short item,DialogPtr theDialog,Ptr myDataPtr)
  1093. {
  1094. short            theItem;
  1095. short            theWidth;
  1096. short            theNameWidth;
  1097. short            DType;
  1098. Handle            DItem;
  1099. ControlHandle    CItem;
  1100. Str255            sTemp;
  1101. Str255            theName;
  1102. Str255            LastChar;
  1103. Point            cSize;
  1104. Rect            dataBounds;
  1105. Boolean            NamesAreSame;
  1106.  
  1107.  
  1108. theItem = item;
  1109.  
  1110. if (theItem == sfHookNullEvent)
  1111.     {
  1112.     NamesAreSame = PStrCmp((StringPtr)&Last_Name,(StringPtr)&myStdFileReply.sfFile.name);
  1113.     if ((Last_vRefNum != myStdFileReply.sfFile.vRefNum) || (Last_parID != myStdFileReply.sfFile.parID) || (!NamesAreSame))
  1114.         theItem = sfItemFileListUser;
  1115.     }
  1116. else
  1117.     theItem = theItem;
  1118.  
  1119. if (theItem == sfItemFileListUser)
  1120.     {
  1121.     if ((Last_vRefNum != myStdFileReply.sfFile.vRefNum) || (Last_parID != myStdFileReply.sfFile.parID) || (Last_Name != myStdFileReply.sfFile.name))
  1122.         {
  1123.         Last_vRefNum = myStdFileReply.sfFile.vRefNum;
  1124.         Last_parID = myStdFileReply.sfFile.parID;
  1125.         PStrCopy((Str255 *)myStdFileReply.sfFile.name,&Last_Name);
  1126.         GetDItem(theDialog, 10, &DType, &DItem, &tempRect);
  1127.         theWidth = tempRect.right - tempRect.left - 10;
  1128.         PStrCopy((Str255 *)"\pSelect '",&sTemp );
  1129.         theWidth = theWidth - StringWidth(sTemp);
  1130.         PStrCopy((Str255 *)myStdFileReply.sfFile.name,&theName);
  1131.         theNameWidth = StringWidth(theName);
  1132.         if (theNameWidth > theWidth)
  1133.             {
  1134.             LastChar[0] = 1;
  1135.             LastChar[1] = theName[theName[0]];
  1136.             PStrCopy(&theName,&sTemp); 
  1137.             PStrCat((Str255 *)"\p...",&sTemp);
  1138.             PStrCat(&LastChar,&sTemp); 
  1139.             while (StringWidth(sTemp) > (theWidth - 5))
  1140.                 {
  1141.                 theName[0] = theName[0] - 1;
  1142.                 PStrCopy(&theName,&sTemp); 
  1143.                 PStrCat((Str255 *)"\p...",&sTemp);
  1144.                 PStrCat(&LastChar,&sTemp); 
  1145.                 }
  1146.             PStrCat((Str255 *)"\p...",&theName);
  1147.             PStrCat(&LastChar,&theName); 
  1148.             }
  1149.  
  1150.         PStrCopy((Str255 *)"\pSelect '", &sTemp );
  1151.         PStrCat(&theName,&sTemp); 
  1152.         PStrCat((Str255 *)"\p'",&sTemp);
  1153.         CItem = (ControlHandle)DItem;                /* Change dialog handle to control handle */
  1154.         SetCTitle(CItem, sTemp);
  1155.         if (myStdFileReply.sfIsFolder || myStdFileReply.sfIsVolume)
  1156.             HiliteControl(CItem, 0);
  1157.         else
  1158.             HiliteControl(CItem,255);
  1159.         }
  1160.     }
  1161. else if (theItem == 10)
  1162.     theItem = sfItemOpenButton;
  1163.  
  1164. return(theItem);
  1165. }
  1166.  
  1167. /* ======================================================= */
  1168.  
  1169. /* Routine: mySelectCustomFileFilter */
  1170. /* Purpose: Filter file routine for Select Volume routine */
  1171.  
  1172. static pascal Boolean mySelectCustomFileFilter (CInfoPBPtr pb,Ptr myDataPtr)
  1173. {
  1174. Boolean        HideTheItem;
  1175. HFileInfo    *FileRecPtr;
  1176.  
  1177.  
  1178. HideTheItem = true;
  1179. FileRecPtr = (HFileInfo *)pb;
  1180. if ((FileRecPtr->ioFlAttrib & 0x0010) != 0)            /* Doing Folder */
  1181.     HideTheItem = false;
  1182.  
  1183. return(HideTheItem);
  1184. }
  1185.  
  1186. /* ======================================================= */
  1187.  
  1188. /* Routine: Init */
  1189. /* Purpose: Init */
  1190.  
  1191. void CmmFiles::Init()
  1192. {
  1193. }
  1194.  
  1195. /* ======================================================= */
  1196.  
  1197. /* Routine: Close_The_Input_File */
  1198. /* Purpose: Close The Input File */
  1199.  
  1200. void CmmFiles::Close_The_Input_File()
  1201. {
  1202. OSErr        ErrorCode;
  1203.  
  1204.  
  1205. ErrorCode = FSClose(this->Files.inputRefNum);                /* Invalidate the refnum */
  1206. this->Files.inputRefNum = 0;                                /* Close the file */
  1207. }
  1208.  
  1209. /* ======================================================= */
  1210.  
  1211. /* Routine: Close_The_Output_File */
  1212. /* Purpose: Close the output file */
  1213.  
  1214. void CmmFiles::Close_The_Output_File()
  1215. {
  1216. OSErr        ErrorCode;
  1217.  
  1218.  
  1219. ErrorCode = FSClose(this->Files.outputRefNum);            /* Invalidate the refnum */
  1220. this->Files.outputRefNum = 0;                                /* Close the file */
  1221. }
  1222.  
  1223. /* ======================================================= */
  1224.  
  1225. /* Routine: Open_The_File */
  1226. /* Purpose: Open The File */
  1227.  
  1228. void CmmFiles::Open_The_File()
  1229. {
  1230. }
  1231.  
  1232. /* ======================================================= */
  1233.  
  1234. /* Routine: Select_Volume */
  1235. /* Purpose: Select Volume */
  1236.  
  1237. void CmmFiles::Select_Volume()
  1238. {
  1239. }
  1240.  
  1241. /* ======================================================= */
  1242.  
  1243. /* Routine: Save_The_File */
  1244. /* Purpose: Save The File */
  1245.  
  1246. void CmmFiles::Save_The_File()
  1247. {
  1248. }
  1249.  
  1250. /* ======================================================= */
  1251. /* ======================================================= */
  1252.  
  1253. /* Routine: Do_The_Select_Volume */
  1254. /* Purpose: This is a routine used to select a user selected folder or volume */
  1255. /* Return TRUE for opened the file OK, else return FALSE */
  1256.  
  1257. Boolean CmmFiles::Do_The_Select_Volume(FSSpec *theFile)        /* Select a volume */
  1258. {
  1259. short    Screen_Width;                                /* Size of the current screen */
  1260. short    Screen_Height;                                /* Size of the current screen */
  1261. Point    Where;                                        /* Used for placing the SF dialog */
  1262. Boolean    OpenedOK;                                    /* Flag to return */
  1263. FileFilterYDUPP    gMyFileFilterYDUPP;
  1264. DlgHookYDUPP    gMyDlgHookYDUPP;
  1265.  
  1266.  
  1267. gMyFileFilterYDUPP = NewFileFilterYDProc(mySelectCustomFileFilter);
  1268. gMyDlgHookYDUPP = NewDlgHookYDProc(mySelectDlgFilter);
  1269.  
  1270. Screen_Width = screenRect.bounds.right - screenRect.bounds.left;/* Width of this screen */
  1271. Screen_Height = screenRect.bounds.bottom - screenRect.bounds.top;
  1272.  
  1273. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1274. Where.v = (Screen_Height / 4) - (104 / 2);
  1275. if (Where.v < 60)
  1276.     Where.v = 60;
  1277. InitCursor();
  1278. this->Files.typeList[0] = 'GRC ';
  1279. Last_vRefNum = -2;
  1280. Last_parID = -2;
  1281. CustomGetFile(gMyFileFilterYDUPP,0,this->Files.typeList,&myStdFileReply,
  1282.     512,Where,gMyDlgHookYDUPP, nil, nil, nil, nil);
  1283.  
  1284. this->Files.theStdFileReply = myStdFileReply;
  1285.  
  1286. OpenedOK = false;                                    /* Init to did not open the file */
  1287. if (this->Files.theStdFileReply.sfGood)                    /* Only do if the user did not cancel */
  1288.     {
  1289.     *theFile = this->Files.theStdFileReply.sfFile;        /* Save the FSSpec */
  1290.     BlockMove((Ptr)&this->Files.theStdFileReply.sfFile.name,&this->Files.inputFileName,
  1291.         this->Files.theStdFileReply.sfFile.name[0]+1);
  1292.     OpenedOK = true;                                /* We selected a folder */
  1293.     }
  1294. else
  1295.     this->Files.inputFileName[0] = 0;                        /* No name for a folder */
  1296.  
  1297. return(OpenedOK);
  1298. }
  1299.  
  1300. /* ======================================================= */
  1301.  
  1302. /* Routine: Do_The_Open_File */
  1303. /* Purpose: This is a routine used to open a user selected file */
  1304. /* Return TRUE for opened the file OK, else return FALSE */
  1305.  
  1306. Boolean CmmFiles::Do_The_Open_File (short NumberOfTypes,short *theVolRefNum,ProcPtr fileFilter,
  1307.     ProcPtr dlgHook)
  1308. {
  1309. short    Screen_Width;                                /* Size of the current screen */
  1310. short    Screen_Height;                                /* Size of the current screen */
  1311. Point    Where;                                        /* Used for placing the SF dialog */
  1312. Boolean    OpenedOK;                                    /* Flag to return */
  1313. OSErr    ErrorCode;
  1314. SFReply    Reply;                                        /* Temp record for making SFGetFile call */
  1315. SFTypeList    typeList;
  1316. FileFilterUPP    gMyFileFilterUPP;
  1317. DlgHookUPP        gMyDlgHookUPP;
  1318.  
  1319.  
  1320. gMyFileFilterUPP = NewFileFilterProc(fileFilter);
  1321. gMyDlgHookUPP = NewDlgHookProc(dlgHook);
  1322.  
  1323. typeList[0] = this->Files.typeList[0];
  1324. typeList[1] = this->Files.typeList[1];
  1325. typeList[2] = this->Files.typeList[2];
  1326. typeList[3] = this->Files.typeList[3];
  1327.  
  1328. Screen_Width = screenRect.bounds.right - screenRect.bounds.left;/* Width of this screen */
  1329. Screen_Height = screenRect.bounds.bottom - screenRect.bounds.top;
  1330.  
  1331. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1332. Where.v = (Screen_Height / 4) - (104 / 2);
  1333. if (Where.v < 60)
  1334.     Where.v = 60;
  1335. InitCursor();
  1336. SFGetFile(Where,(StringPtr)"/pNot used",gMyFileFilterUPP,NumberOfTypes,typeList,gMyDlgHookUPP,&Reply);
  1337.  
  1338. *theVolRefNum = 0;
  1339. this->Files.Reply = Reply;
  1340. this->Files.inputRefNum = 0;                        /* We did not open */
  1341.  
  1342. OpenedOK = false;                                    /* Init to did not open the file */
  1343. if (Reply.good)                                        /* Only do if the user did not cancel */
  1344.     {
  1345.     BlockMove((Ptr)&Reply.fName,&this->Files.inputFileName,Reply.fName[0]+1);
  1346.  
  1347.     ErrorCode = SetVol(nil,Reply.vRefNum);            /* Set to this volume for later opens */
  1348.     *theVolRefNum = Reply.vRefNum;
  1349.     OpenedOK = true;                                /* Flag that we are open OK */
  1350.     }
  1351. else
  1352.     this->Files.inputFileName[0] = 0;                /* No name for a file */
  1353.  
  1354. return(OpenedOK);
  1355. }
  1356.  
  1357. /* ======================================================= */
  1358.  
  1359. /* Routine: Do_The_Save_File */
  1360. /* Purpose: This is a routine used to save a user selected file */
  1361. /* Return TRUE for opened the file OK, else return FALSE */
  1362.  
  1363. Boolean CmmFiles::Do_The_Save_File (OSType creator,OSType fileType,Str255 *Prompt,Str255 *DefaultName,
  1364.     short *theVolRefNum,short *theRefNum,ProcPtr dlgHook)
  1365. {
  1366. short    Screen_Width;                                /* Size of the current screen */
  1367. short    Screen_Height;                                /* Size of the current screen */
  1368. Point    Where;                                        /* Used for placing the SF dialog */
  1369. Boolean    OpenedOK;                                    /* Flag to return */
  1370. OSErr    ErrorCode;
  1371. SFReply    Reply;                                        /* Temp record for making SFPutFile call */
  1372. DlgHookUPP        gMyDlgHookUPP;
  1373.  
  1374.  
  1375. gMyDlgHookUPP = NewDlgHookProc(dlgHook);
  1376.  
  1377. Screen_Width = screenRect.bounds.right - screenRect.bounds.left;/* Width of this screen */
  1378. Screen_Height = screenRect.bounds.bottom - screenRect.bounds.top;
  1379.  
  1380. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1381. Where.v = (Screen_Height / 4) - (104 / 2);
  1382. if (Where.v < 60)
  1383.     Where.v = 60;
  1384. InitCursor();
  1385. SFPutFile(Where,(StringPtr)Prompt,(StringPtr)DefaultName,gMyDlgHookUPP,&Reply);
  1386.  
  1387. BlockMove((Ptr)&Reply.fName,&this->Files.outputFileName,Reply.fName[0]+1);
  1388.  
  1389. this->Files.Reply = Reply;
  1390. *theVolRefNum = this->Files.Reply.vRefNum;
  1391. *theRefNum = 0;
  1392. this->Files.outputRefNum = 0;
  1393.  
  1394. OpenedOK = false;                                    /* Init to did not open the file */
  1395. if (Reply.good)                                        /* Only do if the user did not cancel */
  1396.     {
  1397.     ErrorCode = FSDelete((StringPtr)&Reply.fName,Reply.vRefNum);    /* Delete an older file */
  1398.     ErrorCode = Create((StringPtr)&Reply.fName,Reply.vRefNum,creator,fileType);/* Create the file */
  1399.     ErrorCode = FSOpen((StringPtr)&Reply.fName,Reply.vRefNum,&this->Files.outputRefNum);/* Try to open the file */
  1400.  
  1401.     if (ErrorCode == 0)                                /* See if we opened it cleanly */
  1402.         {
  1403.         ErrorCode = SetFPos(this->Files.outputRefNum, fsFromStart, 0);/* Start at file beginning */
  1404.         ErrorCode = SetVol(nil, *theVolRefNum);        /* Set for later saves */
  1405.         *theRefNum = this->Files.outputRefNum;
  1406.         *theVolRefNum = Reply.vRefNum;
  1407.         OpenedOK = true;                            /* We opened the file OK */
  1408.         }
  1409.     else
  1410.         {
  1411.         ErrorCode = FSClose(this->Files.outputRefNum);    /* Close it if we can, safety */
  1412.         SysBeep(20);                                /* Just beep at the user, caller can do more */
  1413.         this->Files.outputRefNum = 0;                /* Make sure the refnum is inited */
  1414.         }
  1415.     }
  1416.  
  1417. return(OpenedOK);
  1418. }
  1419.  
  1420. /* ======================================================= */
  1421.  
  1422. /* Routine: Init */
  1423. /* Purpose: Init */
  1424.  
  1425. void CmmPrinting::Init()
  1426. {
  1427. this->Printing.hPrint = nil;                            /* Init to no print record yet */
  1428. this->Printing.PrinterIsOpen = false;                    /* We are not printing yet */
  1429. }
  1430.  
  1431. /* ======================================================= */
  1432.  
  1433. /* Routine: PageSetup */
  1434. /* Purpose: Do the page setup */
  1435.  
  1436. void CmmPrinting::PageSetup()
  1437. {
  1438. Boolean    Result;                                        /* Result from Setup dialog */
  1439.  
  1440.  
  1441. PrOpen();                                            /* Open the printer driver */
  1442.  
  1443. if (PrError() == noErr)                                /* Only do if no error  */
  1444.     {
  1445.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1446.         {
  1447.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1448.         HLock((Handle)Printing.hPrint);
  1449.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1450.         }
  1451.  
  1452.     Result = PrStlDialog(Printing.hPrint);            /* Setup dialog */
  1453.     PrClose();
  1454.     }
  1455. else
  1456.     SysBeep(1);
  1457. }
  1458.  
  1459. /* ======================================================= */
  1460.  
  1461. /* Routine: PrintJobSetup */
  1462. /* Purpose: Do the job setup */
  1463.  
  1464. void CmmPrinting::PrintJobSetup()
  1465. {
  1466. Boolean    Result;                                        /* Result from Setup dialog */
  1467.  
  1468.  
  1469. PrOpen();                                            /* Open the printer driver */
  1470.  
  1471. if (PrError() == noErr)                                /* Only do if no error  */
  1472.     {
  1473.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1474.         {
  1475.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1476.         HLock((Handle)Printing.hPrint);
  1477.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1478.         }
  1479.  
  1480.     Result = PrJobDialog(Printing.hPrint);            /* Setup dialog */
  1481.     PrClose();
  1482.     }
  1483. else
  1484.     SysBeep(1);
  1485. }
  1486.  
  1487. /* ======================================================= */
  1488.  
  1489. /* Routine: OpenThePrinter */
  1490. /* Purpose: Open the printer and driver for use */
  1491.  
  1492. void CmmPrinting::OpenThePrinter(Boolean *Cancelled)
  1493. {
  1494.  
  1495.  
  1496. PrOpen();                                            /* Open the printer driver */
  1497.  
  1498. if (PrError() == noErr)                                /* Only do if no error */
  1499.     {
  1500.     Printing.PrinterIsOpen = FALSE;                    /* Whether printer is open or not */
  1501.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1502.         {
  1503.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1504.         HLock((Handle)Printing.hPrint);
  1505.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1506.         }
  1507.  
  1508.     *Cancelled = PrJobDialog(Printing.hPrint);        /* Setup dialog */
  1509.     Printing.CopyCount = (*Printing.hPrint)->prJob.iCopies;    /* Get number of copies to do */
  1510.     *Cancelled = !(*Cancelled);                        /* Inverted logic */
  1511.  
  1512.     Printing.pPrPort = nil;
  1513.  
  1514.     if (*Cancelled == false)                        /* Do if they did not cancel */
  1515.         {
  1516.         Printing.PrinterIsOpen = true;                /* Whether printer is open or not */
  1517.         Printing.PageCount = 1;                        /* For adding in page number */
  1518.         Printing.LineCount = 1;                        /* For printing */
  1519.         Printing.pPrPort = PrOpenDoc(Printing.hPrint, nil, nil);/* Get printing port */
  1520.         }
  1521.     }
  1522. else
  1523.     {
  1524.     SysBeep(1);
  1525.     *Cancelled = TRUE;
  1526.     }
  1527. }
  1528.  
  1529. /* ======================================================= */
  1530.  
  1531. /* Routine: CloseThePrinter */
  1532. /* Purpose: Close the printer */
  1533.  
  1534. void CmmPrinting::CloseThePrinter()
  1535. {
  1536.  
  1537.  
  1538. if (Printing.pPrPort != nil)                        /* Do if we have a port */
  1539.     {
  1540.     PrCloseDoc(Printing.pPrPort);                    /* Clear printing port */
  1541.     Printing.pPrPort = nil;
  1542.     }
  1543.  
  1544. if (Printing.hPrint != nil)                            /* Do if we have a record */
  1545.     {
  1546.     if (((*Printing.hPrint)->prJob.bJDocLoop == bSpoolLoop) && (PrError() == noErr))
  1547.         PrPicFile(Printing.hPrint, NIL, NIL, NIL, &Printing.prStatus);/* Spool it */
  1548.     }
  1549. }
  1550.  
  1551. /* ======================================================= */
  1552.  
  1553. /* Routine: Print_The_Data */
  1554. /* Purpose: Print the data */
  1555.  
  1556. void CmmPrinting::Print_The_Data()
  1557. {
  1558. }
  1559.  
  1560. /* ======================================================= */
  1561.  
  1562. /* Routine: SetupTheItem */
  1563. /* Purpose: Setup a dialog or alert item */
  1564.  
  1565. void SetupTheItem(DialogPtr theDialog,short ItemID,Boolean SizeIt,Boolean ShowIt,
  1566.     Boolean EnableIt,Boolean SetTheMax,Rect *thePosition,long ExtraData,short StringID)
  1567. {
  1568. Rect            tempRect;                            /* Temporary rectangle */
  1569. short            DType;                                /* Type of dialog item */
  1570. Handle            DItem;                                /* Handle to the dialog item */
  1571. ControlHandle    CItem;                                /* Control handle */
  1572.  
  1573.  
  1574. GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);/* Get the item handle and size */
  1575. CItem = (ControlHandle)DItem;                        /* Change to control handle */
  1576.  
  1577. if (SizeIt)                                            /* Have to resize all CDEF connected controls */
  1578.     SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  1579. *thePosition = tempRect;                            /* Pass back the zone location and size */
  1580.  
  1581. if (ExtraData != NIL)                                /* See if extra data for a CDEF */
  1582.     (*CItem)->contrlData = (Handle)ExtraData;        /* Send it */
  1583.  
  1584. if (StringID != 0)                                    /* See if a CDEF and needs the title set again*/
  1585.     {
  1586.     GetIndString(sTemp,StringID,1);                    /* Get the string */
  1587.     SetCTitle(CItem,sTemp);                            /* Set the string */
  1588.     }
  1589.  
  1590. if (EnableIt)                                        /* See if enable or disable the zone */
  1591.     HiliteControl (CItem,0);                        /* Enable the zone */
  1592. else
  1593.     HiliteControl (CItem,255);                        /* Dim the zone */
  1594.  
  1595. if (SetTheMax)
  1596.     SetCtlMax(CItem,12345);                            /* Set the flag to the CDEF */
  1597.  
  1598. if (ShowIt)
  1599.     ShowControl(CItem);                                /* Show it to activate it */
  1600. }
  1601.  
  1602. /* ======================================================= */
  1603.  
  1604. /* Routine: CenterOnColorScreen */
  1605. /* Purpose: Center a window onto the deepest color screen */
  1606.  
  1607. void CenterOnColorScreen (WindowPtr theWindow )
  1608. {
  1609. Rect        tempRect,gdRect,temp2Rect;                /* Temporary rectangle */
  1610. GDHandle    theDevice;                                /* Graphic device */
  1611.  
  1612. if ((theWindow != NIL) && (Has.ColorQD))            /* Make sure it is safe to go ahead */
  1613.     {
  1614.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  1615.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  1616.  
  1617.     if (theDevice != NIL)                            /* Make sure we got a device */
  1618.         {
  1619.         gdRect = (*theDevice)->gdRect;                /* Get the device rect */
  1620.         temp2Rect = theWindow->portRect;            /* Get the window rect */
  1621.  
  1622.         tempRect.top = gdRect.top + ((gdRect.bottom-gdRect.top)/2) - ((temp2Rect.bottom-temp2Rect.top)/2);
  1623.         tempRect.left = gdRect.left + ((gdRect.right-gdRect.left)/2) - ((temp2Rect.right-temp2Rect.left)/2);
  1624.         MoveWindow(theWindow, tempRect.left, tempRect.top, TRUE);/* Move the window*/
  1625.         SetPort(theWindow);                         /* Prepare to write into our window */
  1626.         }
  1627.     }
  1628. }
  1629.  
  1630. /* ======================================================= */
  1631.  
  1632. /* Routine: GetDeepestColorScreenRect */
  1633. /* Purpose: Get the deepest color screen rect */
  1634.  
  1635. void GetDeepestColorScreenRect (Rect *DeepRect )
  1636. {
  1637. Rect        tempRect;                                /* Temporary rectangle */
  1638. GDHandle    theDevice;                                /* Graphic device */
  1639.  
  1640.  
  1641. *DeepRect = screenRect.bounds;                        /* Default to the main screen */
  1642. theDevice = NIL;                                    /* Default to no device */
  1643. if (Has.ColorQD)                                    /* See if color QuickDraw is around */
  1644.     {
  1645.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  1646.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  1647.  
  1648.     if (theDevice != NIL)                            /* Make sure we got a device */
  1649.         *DeepRect = (*theDevice)->gdRect;            /* Get the device rect */
  1650.     }
  1651. }
  1652.  
  1653. /* ======================================================= */
  1654.  
  1655. void HiliteDefaultButton(DialogPtr theDialog,short theItem)
  1656. {
  1657. Rect            tempRect;
  1658. short            DType;                                /* Type of dialog item */
  1659. Handle            DItem;                                /* Handle to the dialog item */
  1660.  
  1661.  
  1662. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1663. PenSize(3, 3);                                        /* Change pen to draw thick default outline */
  1664. InsetRect(&tempRect, -4, -4);                        /* Draw outside the button by 1 pixel */
  1665. FrameRoundRect(&tempRect,16,16);                    /* Draw the outline */
  1666. PenSize(1, 1);                                         /* Restore the pen size to the default value */
  1667. }
  1668.  
  1669. /* ======================================================= */
  1670.  
  1671. void CheckKeysInDialog(DialogPtr theDialog,Boolean *valMyFilter,EventRecord *theEvent,short *itemHit)
  1672. {
  1673. short            chCode;                            /* Key entered */
  1674. char            MyCmdKey;                        /* The command key */
  1675. Boolean            CmdDown;                        /* Flag for command key used */
  1676. Rect            tempRect;                        /* Temporary rectangle */
  1677. short            DType;                            /* Type of dialog item */
  1678. Handle            DItem;                            /* Handle to the dialog item */
  1679. ControlHandle    CItem;                            /* Control handle */
  1680. long            LTemp;
  1681.  
  1682.  
  1683. if (theEvent->what == keyDown)
  1684.     {
  1685.     chCode =  (short)theEvent->message & charCodeMask;/* Get character */
  1686.     MyCmdKey = (char)chCode;                        /* Change to ASCII */
  1687.     CmdDown = ((theEvent->modifiers & cmdKey) != 0);/* Get command key state */
  1688.     if (CmdDown)                                    /* Do if command key was down */
  1689.         {
  1690.         if ((MyCmdKey == 'x') || (MyCmdKey == 'X'))
  1691.             {
  1692.             DlgCut(theDialog);
  1693.             *valMyFilter = TRUE;
  1694.             }
  1695.         else if ((MyCmdKey =='c') || (MyCmdKey == 'C')) 
  1696.             {
  1697.             DlgCopy(theDialog);
  1698.             *valMyFilter = TRUE;
  1699.             }
  1700.         else if ((MyCmdKey =='v') || (MyCmdKey == 'V'))
  1701.             {
  1702.             DlgPaste(theDialog);
  1703.             *valMyFilter = TRUE;
  1704.             }
  1705.         }
  1706.     else if ((chCode == 13) || (chCode == 3))        /* CR or Enter */
  1707.         {
  1708.         *valMyFilter = TRUE;                            /* Flag we got a hit */
  1709.         *itemHit = 1;                                /* Default for CR */
  1710.         GetDItem (theDialog ,*itemHit, &DType, &DItem, &tempRect);/* Get the item */
  1711.         if (DType == (ctrlItem + btnCtrl))            /* If a button then ... */
  1712.             {
  1713.             CItem = (ControlHandle)DItem;            /* Make it a controlhandle */
  1714.             HiliteControl(CItem, 10);                /* Hilite it */
  1715.             LTemp = TickCount() + 15;                /* Flash the button for 1/4 second */
  1716.             do
  1717.                 {}
  1718.             while (LTemp > TickCount());
  1719.             HiliteControl(CItem, 0);                /* UnHilite it */
  1720.             }
  1721.         }
  1722.     }
  1723. }
  1724.  
  1725. /* ======================================================= */
  1726.  
  1727. void SetupNormalControl(DialogPtr theDialog,short theItem,Boolean Enabled,short InitialValue)
  1728. {
  1729. Rect            tempRect;                            /* Temporary rectangle variable */
  1730. short            DType;                                /* Type of dialog item */
  1731. Handle            DItem;                                /* Handle to the dialog item */
  1732. ControlHandle    CItem;                                /* Control handle */
  1733.  
  1734.  
  1735. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1736. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1737.  
  1738. if (Enabled)                                        /* See if enable or disable the zone */
  1739.     HiliteControl (CItem,0);                        /* Enable the zone */
  1740. else
  1741.     HiliteControl (CItem,255);                        /* Dim the zone */
  1742.  
  1743. SetCtlValue(CItem,InitialValue);
  1744. }
  1745.  
  1746. /* ======================================================= */
  1747.  
  1748. static void BasicSetup(DialogPtr theDialog,short theItem,Boolean Enabled,short MessageResID,
  1749.     ControlHandle *theCItem)
  1750. {
  1751. Rect            tempRect;                            /* Temporary rectangle variable */
  1752. short            DType;                                /* Type of dialog item */
  1753. Handle            DItem;                                /* Handle to the dialog item */
  1754. ControlHandle    CItem;                                /* Control handle */
  1755. Str255            sTemp;
  1756.  
  1757.  
  1758. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1759. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1760. SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  1761.  
  1762. if (Enabled)                                        /* See if enable or disable the zone */
  1763.     HiliteControl (CItem,0);                        /* Enable the zone */
  1764. else
  1765.     HiliteControl (CItem,255);                        /* Dim the zone */
  1766.  
  1767. SetCtlValue(CItem,0);
  1768.  
  1769. if (MessageResID != 0)
  1770.     {
  1771.     GetIndString(sTemp,MessageResID,1);                /* Get the string */
  1772.     SetCTitle(CItem,sTemp);                            /* Set the string */
  1773.     }
  1774. *theCItem = CItem;
  1775. }
  1776.  
  1777. /* ======================================================= */
  1778.  
  1779. void SetupHotSpot(DialogPtr theDialog,short theItem,Boolean MakeHotSpot,long LineWidth,
  1780.     long ShadowWidth,short MessageResID,Boolean Enabled)
  1781. {
  1782. ControlHandle    CItem;                                /* Control handle */
  1783. long            LTemp;
  1784.  
  1785.  
  1786. BasicSetup(theDialog,theItem,Enabled,MessageResID,&CItem);
  1787.  
  1788. if (MakeHotSpot)
  1789.     LTemp = 0x00FF0000;                                /* Tell the CDEF that it is a HotSpot */
  1790. else
  1791.     LTemp = 0x00000000;                                /* Tell the CDEF that it is a Rectangle */
  1792.  
  1793. if (MessageResID != 0)
  1794.     LTemp = LTemp + 0x01000000;
  1795.  
  1796. LTemp = LTemp + ((0x000000FF & LineWidth) * 0x00000100);    /* Set the line width */
  1797. LTemp = LTemp + (0x000000FF & ShadowWidth);            /* Set the shadow width */
  1798.  
  1799. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1800.  
  1801. ShowControl(CItem);                                    /* Show it to activate it */
  1802. }
  1803.  
  1804. /* ======================================================= */
  1805.  
  1806. void SetupPlugin(DialogPtr theDialog,short theItem,Boolean Enabled,long NormalID,long HilitedID,
  1807.     short MessageResID)
  1808. {
  1809. ControlHandle    CItem;                                /* Control handle */
  1810. long            LTemp;
  1811.  
  1812.  
  1813. BasicSetup(theDialog,theItem,Enabled,MessageResID,&CItem);
  1814.  
  1815. LTemp = (HilitedID * 0x00010000) + NormalID;    
  1816. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1817.  
  1818. SetCtlMax(CItem,12345);                                /* Set the flag to the CDEF */
  1819.  
  1820. ShowControl(CItem);                                    /* Show it to activate it */
  1821. }
  1822.  
  1823. /* ======================================================= */
  1824.  
  1825. void SetupMinMaxValue(DialogPtr theDialog,short theItem,short min,short max,short value)
  1826. {
  1827. Rect            tempRect;                            /* Temporary rectangle variable */
  1828. short            DType;                                /* Type of dialog item */
  1829. Handle            DItem;                                /* Handle to the dialog item */
  1830. ControlHandle    CItem;                                /* Control handle */
  1831.  
  1832.  
  1833. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1834. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1835. SetCtlMin(CItem,min);                                /* The Min */
  1836. SetCtlMax(CItem,max);                                /* The Max */
  1837. SetCtlValue(CItem,value);                            /* The first selection */
  1838. }
  1839.  
  1840. /* ======================================================= */
  1841.  
  1842. void SetupPopupMenu(DialogPtr theDialog,short theItem,Boolean Enabled,short theMenuID,short value)
  1843. {
  1844. Rect            tempRect;                            /* Temporary rectangle variable */
  1845. short            DType;                                /* Type of dialog item */
  1846. Handle            DItem;                                /* Handle to the dialog item */
  1847. ControlHandle    CItem;                                /* Control handle */
  1848.  
  1849.  
  1850. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1851. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1852. SizeControl(CItem,tempRect.right - tempRect.left, tempRect.bottom - tempRect.top);/* Size it to the item size */
  1853. SetCtlValue(CItem,value);                            /* The first selection */
  1854. SetCtlMax(CItem,theMenuID);                            /* The max value is the menu ID */
  1855.  
  1856. if (Enabled)                                        /* See if enable or disable the zone */
  1857.     HiliteControl (CItem,0);                        /* Enable the zone */
  1858. else
  1859.     HiliteControl (CItem,255);                        /* Dim the zone */
  1860.  
  1861. SetNameForPopup(CItem);                                /* Set the popup title */
  1862. ShowControl(CItem);                                    /* Show it to activate it */
  1863. }
  1864.  
  1865. /* ======================================================= */
  1866.  
  1867. void SetupPalette(DialogPtr theDialog,short theItem,Boolean Enabled,long NumberRows,long NumberCols,
  1868.     long PalPictureID,long HiliteMethod)
  1869. {
  1870. ControlHandle    CItem;                                /* Control handle */
  1871.  
  1872.  
  1873. BasicSetup(theDialog,theItem,Enabled,0,&CItem);
  1874.  
  1875. SetCtlMax(CItem,(NumberRows * 0x00000100) + NumberCols);    /* The max value is the (rows * 0x0100) + columns */
  1876. SetCtlValue(CItem,(1 * 0x0100) + 1 );                /* The current value is the (rows * 0x0100) + columns */
  1877. (*CItem)->contrlData = (Handle)((0xFF000000 | PalPictureID) + (HiliteMethod * 0x00010000));/* Picture ID and hilite method */
  1878. ShowControl(CItem);                                    /* Show it to activate it */
  1879. }
  1880.  
  1881. /* ======================================================= */
  1882.  
  1883. void SetupIconSicn(DialogPtr theDialog,short theItem,Boolean Enabled,
  1884.     long NormalID,long HilitedID)
  1885. {
  1886. ControlHandle    CItem;                                /* Control handle */
  1887. long            LTemp;
  1888.  
  1889.  
  1890. BasicSetup(theDialog,theItem,Enabled,0,&CItem);
  1891.  
  1892. LTemp = (NormalID * 0x00010000) + HilitedID;    
  1893. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1894.  
  1895. SetCtlMax(CItem,12345);                                /* Set the flag to the CDEF */
  1896.  
  1897. ShowControl(CItem);                                    /* Show it to activate it */
  1898. }
  1899.  
  1900. /* ======================================================= */
  1901.  
  1902. void ClearTheRadio(DialogPtr theDialog,short theItem,short *value)
  1903. {
  1904. Rect            tempRect;                            /* Temporary rectangle variable */
  1905. short            DType;                                /* Type of dialog item */
  1906. Handle            DItem;                                /* Handle to the dialog item */
  1907. ControlHandle    CItem;                                /* Control handle */
  1908.  
  1909.  
  1910. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get which item was pressed */
  1911. CItem = (ControlHandle)DItem;                        /* Change the pointer for getting to the control */
  1912. SetCtlValue(CItem,0);
  1913. *value = 0;                                            /* Set the current Radio value */
  1914. }
  1915.  
  1916. /* ======================================================= */
  1917.  
  1918. void DrawStaticTextBox(short ResID,Rect *theRect,short Justify,short theSize,
  1919.     short theFont,Style theStyle)
  1920. {
  1921. Str255        sTemp;
  1922.  
  1923.  
  1924. TextSize(theSize);                            /* Set text size */
  1925. TextFont(theFont);                            /* Set text font */
  1926. TextFace(theStyle);                            /* Set text style */
  1927. GetIndString(sTemp,ResID,1);                /* Get the string */
  1928. TextBox(&sTemp[1],sTemp[0],theRect,Justify);
  1929.  
  1930. TextFont(applFont);                            /* Back to the application font */
  1931. TextSize(12);                                /* Back to the application size */
  1932. TextFace(0);                                /* Set text style */
  1933. }
  1934.  
  1935. /* ======================================================= */
  1936.  
  1937. void DrawStaticLine(short ResID,short Left,short Top,short theSize,short theFont,Style theStyle)
  1938. {
  1939. Str255        sTemp;
  1940.  
  1941.  
  1942. TextSize(theSize);                            /* Set text size */
  1943. TextFont(theFont);                            /* Set text font */
  1944. TextFace(theStyle);                            /* Set text style */
  1945. GetIndString(sTemp,ResID,1);                /* Get the string */
  1946. MoveTo(Left,Top + theSize - 3);
  1947. DrawString(sTemp);
  1948.  
  1949. TextFont(applFont);                            /* Back to the application font */
  1950. TextSize(12);                                /* Back to the application size */
  1951. TextFace(0);                                /* Set text style */
  1952. }
  1953.  
  1954. /* ======================================================= */
  1955.  
  1956. void DrawTheTEArea(Rect *theTERect,TEHandle theTE,short theSize,short theFont,Style theStyle)
  1957. {
  1958.  
  1959.  
  1960. TextSize(theSize);                            /* Set text size */
  1961. TextFont(theFont);                            /* Set text font */
  1962. TextFace(theStyle);                            /* Set text style */
  1963. FrameRect(theTERect);                        /* Frame this TE area */
  1964. if (theTE != nil)
  1965.     TEUpdate(theTERect,theTE);                /* Update the TE area */
  1966.  
  1967. TextFont(applFont);                            /* Back to the application font */
  1968. TextSize(12);                                /* Back to the application size */
  1969. TextFace(0);                                /* Set text style */
  1970. }
  1971.  
  1972. /* ======================================================= */
  1973.  
  1974. ControlHandle MakeNormalControl(WindowPtr theWindow,short theResID,Boolean Enabled,short InitialValue)
  1975. {
  1976. ControlHandle    theCtrl;
  1977.  
  1978.  
  1979. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new control */
  1980. SetCtlValue(theCtrl,InitialValue);                /* Set the value */
  1981. if (Enabled)
  1982.     HiliteControl(theCtrl,0);                    /* Enable the control */
  1983. else
  1984.     HiliteControl(theCtrl,255);                    /* Disable the control */
  1985.  
  1986. return(theCtrl);
  1987. }
  1988.  
  1989. /* ======================================================= */
  1990.  
  1991. ControlHandle MakeHotSpot(WindowPtr theWindow,short theResID,Boolean MakeHotSpot,long LineWidth,
  1992.     long ShadowWidth,short MessageResID,Boolean Enabled)
  1993. {
  1994. ControlHandle    theCtrl;
  1995. long            LTemp;
  1996. Str255            sTemp;
  1997.  
  1998.  
  1999. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new control */
  2000. HideControl(theCtrl);                            /* Hide till we set all the parameters */
  2001.  
  2002. if (Enabled)
  2003.     HiliteControl(theCtrl,0);                    /* Enable the control */
  2004. else
  2005.     HiliteControl(theCtrl,255);                    /* Disable the control */
  2006.  
  2007. if (MakeHotSpot)
  2008.     LTemp = 0x00FF0000;                            /* Tell the CDEF that it is a HotSpot */
  2009. else
  2010.     LTemp = 0x00000000;                            /* Tell the CDEF that it is a Rectangle */
  2011.  
  2012. LTemp = LTemp + ((0x000000FF & LineWidth) * 0x00000100);    /* Set the line width */
  2013. LTemp = LTemp + (0x000000FF & ShadowWidth);        /* Set the shadow width */
  2014.  
  2015. if (MessageResID != 0)
  2016.     {
  2017.     LTemp = LTemp + 0x01000000;
  2018.     GetIndString(sTemp,MessageResID,1);            /* Get the string */
  2019.     SetCTitle(theCtrl,sTemp);                    /* Set the string */
  2020.     }
  2021.  
  2022. (*theCtrl)->contrlData = (Handle)LTemp;            /* Send it */
  2023.  
  2024. SetCtlValue(theCtrl,0);
  2025. ShowControl(theCtrl);                            /* Show it to activate it */
  2026.  
  2027. return(theCtrl);
  2028. }
  2029.  
  2030. /* ======================================================= */
  2031.  
  2032. ControlHandle MakeIconSicn(WindowPtr theWindow,short theResID,Boolean Enabled,
  2033.     long NormalID,long HilitedID)
  2034. {
  2035. ControlHandle    theCtrl;
  2036.  
  2037.  
  2038. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2039. if (Enabled)
  2040.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2041. else
  2042.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2043. (*theCtrl)->contrlData = 
  2044.         (Handle)((NormalID * 0x00010000) + HilitedID);    /* Set the icons to be used */
  2045.  
  2046. return(theCtrl);
  2047. }
  2048.  
  2049. /* ======================================================= */
  2050.  
  2051. ControlHandle MakePlugin(WindowPtr theWindow,short theResID,Boolean Enabled,
  2052.     long NormalID,long HilitedID,short MessageResID,short InitialValue)
  2053. {
  2054. ControlHandle    theCtrl;
  2055. long            LTemp;
  2056. Str255            sTemp;
  2057.  
  2058.  
  2059. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2060. HideControl(theCtrl);
  2061. if (Enabled)
  2062.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2063. else
  2064.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2065.  
  2066. LTemp = (HilitedID * 0x00010000) + NormalID;    
  2067. (*theCtrl)->contrlData = (Handle)LTemp;            /* Send it */
  2068.  
  2069. SetCtlMax(theCtrl,12345);                        /* Set the flag to the CDEF */
  2070.  
  2071. if (MessageResID != 0)
  2072.     {
  2073.     GetIndString(sTemp,MessageResID,1);            /* Get the string */
  2074.     SetCTitle(theCtrl,sTemp);                    /* Set the string */
  2075.     }
  2076.  
  2077. SetCtlValue(theCtrl,InitialValue);
  2078. ShowControl(theCtrl);                            /* Show it to activate it */
  2079.  
  2080. return(theCtrl);
  2081. }
  2082.  
  2083. /* ======================================================= */
  2084.  
  2085. void MakeMinMaxValue(ControlHandle theControl,short min,short max,short value)
  2086. {
  2087.  
  2088. SetCtlMin(theControl,min);                                /* The Min */
  2089. SetCtlMax(theControl,max);                                /* The Max */
  2090. SetCtlValue(theControl,value);                            /* The first selection */
  2091. }
  2092.  
  2093. /* ======================================================= */
  2094.  
  2095. ControlHandle MakePopupMenu(WindowPtr theWindow,short theResID,Boolean Enabled,
  2096.     short theMenuID,short value)
  2097. {
  2098. ControlHandle    theCtrl;
  2099. long            LTemp;
  2100. Str255            sTemp;
  2101.  
  2102.  
  2103. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2104. HideControl(theCtrl);
  2105. if (Enabled)
  2106.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2107. else
  2108.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2109.  
  2110. SetCtlMax(theCtrl,theMenuID);                    /* Set the menu for the CDEF */
  2111.  
  2112. SetCtlValue(theCtrl,value);
  2113. SetNameForPopup(theCtrl);                        /* Set the popup title */
  2114. ShowControl(theCtrl);                            /* Show it to activate it */
  2115.  
  2116. return(theCtrl);
  2117. }
  2118.  
  2119. /* ======================================================= */
  2120.  
  2121. void UpdateTheList(RgnHandle theRgn,ListHandle theList,Rect *theRect,short theSize,
  2122.     short theFont,Style theStyle,Boolean InDialog)
  2123. {
  2124. Rect        tempRect;
  2125.  
  2126.  
  2127. TextSize(theSize);                            /* Set text size */
  2128. TextFont(theFont);                            /* Set text font */
  2129. TextFace(theStyle);                            /* Set text style */
  2130.  
  2131. LUpdate(theRgn,theList);                    /* Update this list */
  2132. tempRect = *theRect;                        /* Start with full size */
  2133. InsetRect(&tempRect, -1, -1);                /* Set for framing */
  2134. FrameRect(&tempRect);                        /* Frame it */
  2135.  
  2136. if (InDialog)
  2137.     TextFont(systemFont);                    /* Back to the system font */
  2138. else
  2139.     TextFont(applFont);                        /* Back to the application font */
  2140. TextSize(12);                                /* Back to the application size */
  2141. TextFace(0);                                /* Set text style */
  2142. }
  2143.  
  2144. /* ======================================================= */
  2145.  
  2146. void ClickInTheList(Point myPt,short modifiers,ListHandle theList,short theSize,
  2147.     short theFont,Style theStyle,Boolean InDialog)
  2148. {
  2149. Boolean        DoubleClick;
  2150.  
  2151.  
  2152. TextSize(theSize);                            /* Set text size */
  2153. TextFont(theFont);                            /* Set text font */
  2154. TextFace(theStyle);                            /* Set text style */
  2155.  
  2156. DoubleClick = LClick(myPt,modifiers,theList);
  2157.  
  2158. if (InDialog)
  2159.     TextFont(systemFont);                    /* Back to the system font */
  2160. else
  2161.     TextFont(applFont);                        /* Back to the application font */
  2162. TextSize(12);                                /* Back to the application size */
  2163. TextFace(0);                                /* Set text style */
  2164. }
  2165.  
  2166. /* ======================================================= */
  2167.  
  2168. ControlHandle MakePalette(WindowPtr theWindow,short theResID,Boolean Enabled,long NumberRows,
  2169.     long NumberCols,long PalPictureID,long HiliteMethod)
  2170. {
  2171. ControlHandle    theCtrl;
  2172.  
  2173.  
  2174. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2175. HideControl(theCtrl);
  2176. if (Enabled)
  2177.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2178. else
  2179.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2180.  
  2181. SetCtlMax(theCtrl,(NumberRows * 0x00000100) + NumberCols);    /* The max value is the (rows * 0x0100) + columns */
  2182. SetCtlValue(theCtrl,(1 * 0x0100) + 1 );                /* The current value is the (rows * 0x0100) + columns */
  2183. (*theCtrl)->contrlData = (Handle)((0xFF000000 | PalPictureID) + (HiliteMethod * 0x00010000));/* Picture ID and hilite method */
  2184.  
  2185. ShowControl(theCtrl);                            /* Show it to activate it */
  2186.  
  2187. return(theCtrl);
  2188. }
  2189.  
  2190. /* ======================================================= */
  2191.  
  2192. void Activate_TE_Area(Boolean InDialog,Point myPt,TEHandle theTE,short textSize,short textFont,Style textStyle)
  2193. {
  2194.  
  2195.  
  2196. TextSize(textSize);                            /* Set text size */
  2197. TextFont(textFont);                            /* Set text font */
  2198. TextFace(textStyle);                        /* Set text style */
  2199. if (theInput != nil)                        /* See if there is already a Tarea */
  2200.     TEDeactivate(theInput);                    /* ...Yes, so turn it off */
  2201.  
  2202. theInput = theTE;
  2203. TEActivate(theInput);                        /* Turn it on */
  2204. TEClick(myPt,false,theInput);
  2205. if (InDialog)
  2206.     TextFont(systemFont);                    /* Back to the system font */
  2207. else
  2208.     TextFont(applFont);                        /* Back to the application font */
  2209. TextSize(12);
  2210. TextFace(0);
  2211. }
  2212.  
  2213. /* ======================================================= */
  2214. /* ======================================================= */
  2215. $$CloseFile
  2216.  
  2217.  
  2218.